home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G40F / M_rider.Dxr / 00143.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  1.8 KB  |  100 lines
  1. global i, pno, glocv1, gloch1, x1, x2, y1, y2, high1, haba1, ga
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   repeat with i = 13 to 26
  6.     set the cursor of sprite i to mycursor
  7.   end repeat
  8.   set glocv1 to 26
  9.   set gloch1 to 25
  10.   set high1 to 474
  11.   set haba1 to 590
  12.   set x1 to 25
  13.   set x2 to 25
  14.   set y1 to -116
  15.   set y2 to 26
  16.   set volset to the soundLevel
  17.   if the soundEnabled = 0 then
  18.     set the soundEnabled to 1
  19.   end if
  20. end
  21.  
  22. on doexit
  23.   sound stop 1
  24.   go(1, "YUIMAIN")
  25. end
  26.  
  27. on crtexit
  28.   puppetSprite(40, 1)
  29.   repeat while the stillDown
  30.     set the memberNum of sprite 40 to 33
  31.     updateStage()
  32.   end repeat
  33.   set the memberNum of sprite 40 to 32
  34.   updateStage()
  35.   puppetSprite(40, 0)
  36. end
  37.  
  38. on crtnext
  39.   puppetSprite(42, 1)
  40.   repeat while the stillDown
  41.     set the memberNum of sprite 42 to 37
  42.     updateStage()
  43.   end repeat
  44.   set the memberNum of sprite 42 to 36
  45.   updateStage()
  46.   puppetSprite(42, 0)
  47.   puppetSprite(2, 0)
  48.   syokisettei()
  49. end
  50.  
  51. on crtback
  52.   puppetSprite(43, 1)
  53.   repeat while the stillDown
  54.     set the memberNum of sprite 43 to 39
  55.     updateStage()
  56.   end repeat
  57.   set the memberNum of sprite 43 to 38
  58.   updateStage()
  59.   puppetSprite(43, 0)
  60.   puppetSprite(2, 0)
  61.   syokisettei()
  62. end
  63.  
  64. on crtp1
  65.   puppetSprite(pno, 1)
  66.   repeat while the stillDown
  67.     set the memberNum of sprite pno to pno - 7
  68.     updateStage()
  69.   end repeat
  70.   set the memberNum of sprite pno to pno - 15
  71.   updateStage()
  72.   puppetSprite(pno, 0)
  73.   puppetSprite(2, 0)
  74.   syokisettei()
  75. end
  76.  
  77. on crtclose
  78.   puppetSprite(41, 1)
  79.   repeat while the stillDown
  80.     set the memberNum of sprite 41 to 35
  81.     updateStage()
  82.   end repeat
  83.   set the memberNum of sprite 41 to 34
  84.   updateStage()
  85.   puppetSprite(41, 0)
  86.   puppetSprite(2, 0)
  87.   syokisettei()
  88. end
  89.  
  90. on syokisettei
  91.   set glocv1 to 26
  92.   set gloch1 to 25
  93.   set high1 to 474
  94.   set haba1 to 590
  95.   set x1 to 25
  96.   set x2 to 25
  97.   set y1 to -116
  98.   set y2 to 26
  99. end
  100.